home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / ScreenMugShot / Install < prev    next >
Text File  |  1997-06-05  |  13KB  |  432 lines
  1. ;
  2. ; Script to install:
  3. ;
  4. ; Screen Mug Shot   By: Mark Ritter
  5. ;
  6. ; A Swiss Army Knife Utility
  7. ;
  8.  
  9.  
  10. ;-------------------------------------------------------------------------------
  11. ; Initialization
  12. ;-------------------------------------------------------------------------------
  13. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  14.  
  15. (set cpu (database "cpu"))
  16. (if (= cpu 68000) (set DefaultCPU 0))
  17. (if (= cpu 68030) (set DefaultCPU 1))
  18. (if (= cpu 68040) (set DefaultCPU 2))
  19. (if (= cpu 68060) (set DefaultCPU 3))
  20.  
  21. (set Program0 "ScreenMugShot")
  22. (set Program1 "Screen Mug Shot")
  23. (set Program2 "screenmugshot")
  24.  
  25. (set IconName (cat Program0 ".info"))
  26. (set GuideName (cat Program0 ".guide"))
  27. (set GuideNameInfo (cat GuideName ".info"))
  28. (set CatalogName (cat Program2 ".catalog"))
  29. (set BlankName (cat Program0 "_Blank.cd"))
  30.  
  31. (set vernum1 (getversion Program1)) (set Ver1 (/ vernum1 65536)) (set Rev1 (- vernum1 (* Ver1 65536)))
  32. (set Version1 (cat Ver1 "." Rev1))
  33. (set Released "5.6.97")
  34. (set CopyrightYears "1996-1997")
  35.  
  36.  
  37. ;-------------------------------------------------------------------------------
  38. ; English strings
  39. ;-------------------------------------------------------------------------------
  40. (if (= @language "english")
  41. (
  42.     (set #need39 "This program requires OS 3.0 or higher.")
  43.     (set #need43installer "This install script requires Installer V43.\n\nIt is available on Aminet:\nutil/misc/Installer-43_3.lha\n\nPlease upgrade your Installer and try again.")
  44.  
  45.     (set #installing "Installing ")
  46.  
  47.     (set #welcome (cat "\n\n\n" Program1 "\nBy: Mark Ritter\n\nVersion: " Version1 "     Released: " Released "\n\nCopyright © " CopyrightYears "   All Rights Reserved\n\nA Swiss Army Knife Utility"))
  48.     (set #welcome2 (cat "\nThe install script will check the versions of all files before copying.  This will prevent an older version being copied over a newer version."))
  49.  
  50.     (set #iconsystem "What icon system do you have installed?")
  51.  
  52.     (set #installwhere (cat "Where do you want to install " Program1 "?  A directory will NOT be created.  Only a newer version will be copied."))
  53.  
  54.     (set #pickcpu "What CPU version do you want to install?  If your choice does not exist, then the 68000 version will be used.")
  55.  
  56.     (set #copyicon (cat Program1 " is already installed.  Do you want to copy the icon?  If you have set some of the tooltypes and want to keep them, then don't copy the icon."))
  57.     (set #yes "Yes")
  58.     (set #no "No")
  59.  
  60.     (set #guidewhere "Where do you want to install the AmigaGuide?")
  61.  
  62.     (set #chooselanguages (cat Program1 " has English as the built-in language.  It is localized with the languages below.  Which catalogs do you want to install?"))
  63.  
  64.     (set #goodbye (cat "\n" Program1 " Installation Complete\n\n"))
  65. )
  66. )
  67.  
  68.  
  69. ;-------------------------------------------------------------------------------
  70. ; Deutsch strings
  71. ;-------------------------------------------------------------------------------
  72. (if (= @language "deutsch")
  73. (
  74.     (set #need39 "Dieses Programm benötigt OS 3.0 oder höher.")
  75.     (set #need43installer "Dieses Install-Skript benötigt Installer V43.\n\nEr ist verfügbar im Aminet:\nutil/misc/Installer-43_3.lha\n\nBitte verbessere deinen Installer und versuche es nochmal.")
  76.  
  77.     (set #installing "Installiere ")
  78.  
  79.     (set #welcome (cat "\n\n\n" Program1 "\nVon: Mark Ritter\n\nVersion: " Version1 "     Released: " Released "\n\nCopyright © " CopyrightYears "   Alle Rechte vorbehalten\n\nEin Schweizer Armee-Messer-Hilfsprogramm."))
  80.     (set #welcome2 (cat "\nDas Install-Skript durchsucht vor dem Kopieren alle Versionen von allen Dateien.  Dies beugt dem Kopieren einer älteren Version über eine neuere vor."))
  81.  
  82.     (set #iconsystem "Welches Piktogrammsystem hast du installiert?")
  83.  
  84.     (set #installwhere (cat "Wohin möchtest du installieren " Program1 "?  Eine Schublade wird nicht erzeugt.  Nur eine neuere Version wird kopiert."))
  85.  
  86.     (set #pickcpu "Welche CPU Version möchtest du installieren?  Wenn nichts gewählt ist, wird die 68000 Version benutzt.")
  87.  
  88.     (set #copyicon (cat Program1 " ist bereits installiert.  Möchtest du das Piktogramm kopieren?  Wenn du ein paar Merkmale gesetzt hast und sie behalten möchtest, dann kopiere das Piktogramm nicht."))
  89.     (set #yes "Ja")
  90.     (set #no "Nein")
  91.  
  92.     (set #guidewhere"Wohin moechtest du AmigaGuide installieren?")
  93.  
  94.     (set #chooselanguages (cat Program1 " hat Englisch als eingebaute Sprache.  Es befindet sich unter den anderen Sprachen.  Welche Kataloge möchtest du installieren?"))
  95.  
  96.     (set #goodbye (cat "\n" Program1 " Installation komplett\n\n"))
  97. )
  98. )
  99.  
  100.  
  101. ;-------------------------------------------------------------------------------
  102. ; Magyar strings
  103. ;-------------------------------------------------------------------------------
  104. (if (= @language "magyar")
  105. (
  106.     (set #need39 "Ez a program OS 3.0-át vagy nagy verziót igényel.")
  107.     (set #need43installer "Ez az telepítõ parancsállomány Installer V43-at vagy nagyobb verziót igényel.\n\nBeszerezhetõ az Amineten:\nutil/misc/Installer-43_3.lha\n\nKérlek cseréld le a telepítõd és próbáld újra!")
  108.  
  109.     (set #installing "Telepítés ")
  110.  
  111.     (set #welcome (cat "\n\n\n" Program1 "\nKészítette: Mark Ritter\n\nVerzió: " Version1 "     Kiadta: " Released "\n\nCopyright © " CopyrightYears "   Minden jog fentartva.\n\nEgy Swiss Army Knife Utility"))
  112.     (set #welcome2 (cat "\nA telepítõ állomány megvizsgálja minden állomány vezióját másolás elõtt. Ez megakadályozza, hogy egy újabb verziót lecseréljen egy régebbivel."))
  113.  
  114.     (set #iconsystem "Milyen ikon rendszered van telepítve?")
  115.  
  116.     (set #installwhere (cat "Hova akarod telepíteni a(z)" Program1 "-ot?  Könyvtár NEM LESZ ott létrehozva. Csak újabb verziók lesznek másolva."))
  117.  
  118.     (set #pickcpu "Melyik CPU verziót akarod telepíteni?  Ha az általad kívánt változat nem létezik, akkor a 68000-es verzió kerül telepítésre.")
  119.  
  120.     (set #copyicon (cat Program1 " már telepítve van.  Akarod az ikont másolni?  Ha már beállítottál paramétereket (tooltype), és mega akarod tartani a beállításokat, akkor ne másold át az ikont."))
  121.     (set #yes "Igen")
  122.     (set #no "Nem")
  123.  
  124.     (set #guidewhere "Hova akarod telepiteni az AmigaGuide allomanyt?")
  125.  
  126.     (set #chooselanguages (cat "A(z) " Program1 " beépített nyelve az angol.  Az alább felsorolt lokalizációs állományokat tartalmazza.  Melyik katalógusokat akarod telepíteni?"))
  127.  
  128.     (set #goodbye (cat "\n" Program1 " telepítése kész.\n\n"))
  129. )
  130. )
  131.  
  132.  
  133. ;-------------------------------------------------------------------------------
  134. ; Check versions
  135. ;-------------------------------------------------------------------------------
  136. (complete 0)
  137.  
  138. (if (not v39)
  139.     (abort #need39)
  140. )
  141.  
  142. (if (< (/ @installer-version 65536) 43)
  143.     (abort #need43installer)
  144. )
  145.  
  146.  
  147. ;-------------------------------------------------------------------------------
  148. ; Show welcome message
  149. ;-------------------------------------------------------------------------------
  150. (complete 0)
  151.  
  152. (message #welcome)
  153.  
  154. (welcome)
  155.  
  156. (message #welcome2)
  157.  
  158.  
  159. ;-------------------------------------------------------------------------------
  160. ; Install what icon system
  161. ;-------------------------------------------------------------------------------
  162. (complete 0)
  163.  
  164. (set IconSystem
  165.     (askchoice
  166.         (prompt #iconsystem)
  167.         (choices "NewIcons" "MagicWB")
  168.         (help #iconsystem)
  169.         (default 0)
  170.     )
  171. )
  172.  
  173.  
  174. ;-------------------------------------------------------------------------------
  175. ; Get destination directory
  176. ;-------------------------------------------------------------------------------
  177. (complete 8)
  178.  
  179. (set WhatAssign
  180.     (askdir
  181.         (prompt #installwhere)
  182.         (help #installwhere)
  183.         (default @default-dest)
  184.     )
  185. )
  186.  
  187. (set @default-dest WhatAssign)
  188.  
  189.  
  190. ;-------------------------------------------------------------------------------
  191. ; Ask for CPU
  192. ;-------------------------------------------------------------------------------
  193. (complete 20)
  194.  
  195. (set PickCPU
  196.     (askchoice
  197.         (prompt #pickcpu)
  198.         (choices "68000" "68020" "68030" "68040" "68060" "PPC")
  199.         (help #pickcpu)
  200.         (default DefaultCPU)
  201.     )
  202. )
  203.  
  204.  
  205. ;-------------------------------------------------------------------------------
  206. ; Check CPU and copy executable
  207. ;-------------------------------------------------------------------------------
  208. (complete 32)
  209.  
  210. (set NameCPU Program0)
  211.  
  212. (if (= PickCPU 1)
  213. (
  214.     (set NameCPU (cat Program0 "030"))
  215.  
  216.     (if (not (exists NameCPU))
  217.         (set NameCPU Program0)
  218.     )
  219. )
  220. )
  221.  
  222. (if (= PickCPU 2)
  223. (
  224.     (set NameCPU (cat Program0 "040"))
  225.  
  226.     (if (not (exists NameCPU))
  227.         (set NameCPU Program0)
  228.     )
  229. )
  230. )
  231.  
  232. (if (= PickCPU 3)
  233. (
  234.     (set NameCPU (cat Program0 "060"))
  235.  
  236.     (if (not (exists NameCPU))
  237.         (set NameCPU Program0)
  238.     )
  239. )
  240. )
  241.  
  242. (if (= PickCPU 4)
  243. (
  244.     (set NameCPU (cat Program0 "PPC"))
  245.  
  246.     (if (not (exists NameCPU))
  247.         (set NameCPU Program0)
  248.     )
  249. )
  250. )
  251.  
  252. (copylib
  253.     (source NameCPU)
  254.     (dest @default-dest)
  255.     (prompt #installing Program1)
  256. )
  257.  
  258.  
  259. ;-------------------------------------------------------------------------------
  260. ; Verify copy icon
  261. ;-------------------------------------------------------------------------------
  262. (complete 44)
  263.  
  264. (set OldIcon (exists (tackon WhatAssign IconName)))
  265.  
  266. (if (= OldIcon 0)
  267. (
  268.     (if (= IconSystem 0)
  269.         (copyfiles
  270.             (source (tackon "Icons/NewIcons/" IconName))
  271.             (dest @default-dest)
  272.             (optional "force" "nofail")
  273.         )
  274.     )
  275.  
  276.     (if (= IconSystem 1)
  277.         (copyfiles
  278.             (source (tackon "Icons/MagicWB/" IconName))
  279.             (dest @default-dest)
  280.             (optional "force" "nofail")
  281.         )
  282.     )
  283. )
  284. )
  285.  
  286. (if (= OldIcon 1)
  287. (
  288.     (set CopyNewIcon
  289.         (askbool
  290.             (prompt #copyicon)
  291.             (choices #yes #no)
  292.             (help #copyicon)
  293.         )
  294.     )
  295.  
  296.     (if (= CopyNewIcon 1)
  297.     (
  298.         (if (= IconSystem 0)
  299.             (copyfiles
  300.                 (source (tackon "Icons/NewIcons/" IconName))
  301.                 (dest @default-dest)
  302.                 (optional "force" "nofail")
  303.             )
  304.         )
  305.  
  306.         (if (= IconSystem 1)
  307.             (copyfiles
  308.                 (source (tackon "Icons/MagicWB/" IconName))
  309.                 (dest @default-dest)
  310.                 (optional "force" "nofail")
  311.             )
  312.         )
  313.     )
  314.     )
  315. )
  316. )
  317.  
  318.  
  319. ;-------------------------------------------------------------------------------
  320. ; Install AmigaGuide
  321. ;-------------------------------------------------------------------------------
  322. (complete 56)
  323.  
  324. (set WhatAssign
  325.     (askdir
  326.         (prompt #guidewhere)
  327.         (help #guidewhere)
  328.         (default "HELP:")
  329.     )
  330. )
  331.  
  332. (set @guide-dest WhatAssign)
  333.  
  334. (if (= IconSystem 0)
  335. (
  336.     (copyfiles
  337.         (source (tackon "Icons/NewIcons/" GuideNameInfo))
  338.         (dest @guide-dest)
  339.         (optional "force" "nofail")
  340.     )
  341. )
  342. )
  343.  
  344. (if (= IconSystem 1)
  345. (
  346.     (copyfiles
  347.         (source (tackon "Icons/MagicWB/" GuideNameInfo))
  348.         (dest @guide-dest)
  349.         (optional "force" "nofail")
  350.     )
  351. )
  352. )
  353.  
  354. (copylib
  355.     (source GuideName)
  356.     (dest @guide-dest)
  357.     (prompt #installing GuideName)
  358. )
  359.  
  360.  
  361. ;-------------------------------------------------------------------------------
  362. ; Ask what language(s)
  363. ;-------------------------------------------------------------------------------
  364. (complete 68)
  365.  
  366. (set Languages
  367.     (askoptions
  368.         (prompt #chooselanguages)
  369.         (choices "Deutsch" "Magyar")
  370.         (help #askoptions-help)
  371.         (default 0)
  372.     )
  373. )
  374.  
  375. (if (bitand Languages 1)
  376. (
  377.     (copylib
  378.         (source (tackon "Locale/deutsch/" CatalogName))
  379.         (dest "LOCALE:Catalogs/deutsch/")
  380.         (prompt #installing CatalogName)
  381.     )
  382. )
  383. )
  384.  
  385. (if (bitand Languages 2)
  386. (
  387.     (copylib
  388.         (source (tackon "Locale/magyar/" CatalogName))
  389.         (dest "LOCALE:Catalogs/magyar/")
  390.         (prompt #installing CatalogName)
  391.     )
  392. )
  393. )
  394.  
  395.  
  396. ;-------------------------------------------------------------------------------
  397. ; Install miscellaneous files
  398. ;-------------------------------------------------------------------------------
  399. (complete 80)
  400.  
  401. (copylib
  402.     (source BlankName)
  403.     (dest @default-dest)
  404.     (optional "nofail")
  405.     (prompt #installing BlankName)
  406. )
  407.  
  408.  
  409. ;-------------------------------------------------------------------------------
  410. ; Install libraries
  411. ;-------------------------------------------------------------------------------
  412. (complete 92)
  413.  
  414. (copylib
  415.     (source "libs/gtlayout.library")
  416.     (dest "LIBS:")
  417.     (prompt #installing "gtlayout.library")
  418. )
  419. (copylib
  420.     (source "libs/screennotify.library")
  421.     (dest "LIBS:")
  422.     (prompt #installing "screennotify.library")
  423. )
  424.  
  425.  
  426. ;-------------------------------------------------------------------------------
  427. ; Finished
  428. ;-------------------------------------------------------------------------------
  429. (complete 100)
  430.  
  431. (exit #goodbye)
  432.